home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / iconal2a / inpform1.frm < prev    next >
Text File  |  1999-10-12  |  4KB  |  151 lines
  1. VERSION 5.00
  2. Begin VB.Form InpForm1 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Form1"
  7.    ClientHeight    =   2025
  8.    ClientLeft      =   -45
  9.    ClientTop       =   -330
  10.    ClientWidth     =   5010
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   2025
  15.    ScaleWidth      =   5010
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   3  'Windows Default
  18.    Begin VB.CommandButton Command3 
  19.       Caption         =   "Oops"
  20.       Height          =   270
  21.       Left            =   3870
  22.       TabIndex        =   5
  23.       Top             =   1665
  24.       Width           =   900
  25.    End
  26.    Begin VB.CommandButton Command2 
  27.       Caption         =   "Alright"
  28.       Height          =   270
  29.       Left            =   3870
  30.       TabIndex        =   4
  31.       Top             =   1350
  32.       Width           =   900
  33.    End
  34.    Begin VB.CommandButton Command1 
  35.       BackColor       =   &H00C0C0C0&
  36.       Caption         =   "X"
  37.       BeginProperty Font 
  38.          Name            =   "MS Sans Serif"
  39.          Size            =   8.25
  40.          Charset         =   0
  41.          Weight          =   700
  42.          Underline       =   0   'False
  43.          Italic          =   0   'False
  44.          Strikethrough   =   0   'False
  45.       EndProperty
  46.       Height          =   240
  47.       Left            =   4635
  48.       Style           =   1  'Graphical
  49.       TabIndex        =   3
  50.       Top             =   90
  51.       Width           =   285
  52.    End
  53.    Begin VB.TextBox Text1 
  54.       BackColor       =   &H00C0FFFF&
  55.       BeginProperty Font 
  56.          Name            =   "MS Sans Serif"
  57.          Size            =   9.75
  58.          Charset         =   0
  59.          Weight          =   400
  60.          Underline       =   0   'False
  61.          Italic          =   0   'False
  62.          Strikethrough   =   0   'False
  63.       EndProperty
  64.       Height          =   285
  65.       Left            =   90
  66.       TabIndex        =   0
  67.       Text            =   "Text1"
  68.       Top             =   1620
  69.       Width           =   3525
  70.    End
  71.    Begin VB.Label Label2 
  72.       Alignment       =   2  'Center
  73.       BackColor       =   &H00006000&
  74.       Caption         =   "Label2"
  75.       BeginProperty Font 
  76.          Name            =   "MS Sans Serif"
  77.          Size            =   9.75
  78.          Charset         =   0
  79.          Weight          =   400
  80.          Underline       =   0   'False
  81.          Italic          =   0   'False
  82.          Strikethrough   =   0   'False
  83.       EndProperty
  84.       ForeColor       =   &H00FFFF80&
  85.       Height          =   285
  86.       Left            =   45
  87.       TabIndex        =   2
  88.       Top             =   60
  89.       Width           =   4920
  90.    End
  91.    Begin VB.Image Image1 
  92.       Height          =   480
  93.       Left            =   4095
  94.       Picture         =   "InpForm1.frx":0000
  95.       Top             =   405
  96.       Width           =   480
  97.    End
  98.    Begin VB.Label Label1 
  99.       Appearance      =   0  'Flat
  100.       AutoSize        =   -1  'True
  101.       BackColor       =   &H00C0C0C0&
  102.       BeginProperty Font 
  103.          Name            =   "MS Sans Serif"
  104.          Size            =   9.75
  105.          Charset         =   0
  106.          Weight          =   400
  107.          Underline       =   0   'False
  108.          Italic          =   0   'False
  109.          Strikethrough   =   0   'False
  110.       EndProperty
  111.       ForeColor       =   &H00C00000&
  112.       Height          =   240
  113.       Left            =   135
  114.       TabIndex        =   1
  115.       Top             =   450
  116.       Width           =   3525
  117.       WordWrap        =   -1  'True
  118.    End
  119. End
  120. Attribute VB_Name = "InpForm1"
  121. Attribute VB_GlobalNameSpace = False
  122. Attribute VB_Creatable = False
  123. Attribute VB_PredeclaredId = True
  124. Attribute VB_Exposed = False
  125. Private Sub Command1_Click()
  126. Command3_Click
  127. End Sub
  128.  
  129. Private Sub Command2_Click() 'ok
  130. Inp1 = Text1.Text
  131. DefInp = Text1.Text
  132. InpForm1.Hide
  133. End Sub
  134.  
  135. Private Sub Command3_Click() 'cancel
  136. Inp1 = ""
  137. InpForm1.Hide
  138. End Sub
  139.  
  140. Private Sub Form_Activate()
  141. Text1.SetFocus
  142. End Sub
  143.  
  144. Private Sub Text1_KeyPress(KeyAscii As Integer)
  145. If KeyAscii = 13 Then
  146. Command2_Click
  147. End If
  148. End Sub
  149.  
  150.  
  151.